G:\Shared drives\MRDC Documents\Website\mrdcl-learning.com\mrdcl_files\TAB-04\run3.stp
start data,
serial number in columns 1,2,3,
card numbers 1,(2) in column 4,
!
ds $region=$115/1-4,
x='North;
East;
South;
West',
xt='Region',
!
ds $age=$105/1-3,e,
v='Age\16-35 years old;
36-54 years old _this_ is a very long line now;
55+ years old;
Not stated',
h='Age\16-35;
36-54;
55+;
Not stated',
xt='Age',
ds $xq2a=$113/1-5,e,
dm $q2a=$113/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 1',
!
di $iq2a=$xq2a(2,1,0,-1,-2,u),
ds $xq2b=$114/1-5,e,
dm $q2b=$114/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 2',
!
di $iq2b=$xq2b(2,1,0,-1,-2,u),
ds $xq2c=$115/1-5,e,
dm $q2c=$115/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 3',
!
di $iq2c=$xq2c(2,1,0,-1,-2,u),
ds $xq2d=$116/1-5,e,
dm $q2d=$116/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 4',
!
di $iq2d=$xq2d(2,1,0,-1,-2,u),
ds $xq2e=$117/1-5,e,
dm $q2e=$117/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 5',
!
di $iq2e=$xq2e(2,1,0,-1,-2,u),
ds $xq2f=$118/1-5,e,
dm $q2f=$118/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 6',
!
di $iq2f=$xq2f(2,1,0,-1,-2,u),
ds $xq2g=$119/1-5,e,
dm $q2g=$119/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 7',
!
di $iq2g=$xq2g(2,1,0,-1,-2,u),
ds $xq2h=$120/1-5,e,
dm $q2h=$120/1..2,1-5,e,
v='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>',
h='Sub total - Agree;
Agree strongly (2)<v2>;
Quite strongly (1)<v1>;
Neither agree nor disagree (0)<v0>;
Disagree slightly (-1)<v-1>;
Disagree strongly (-2><v-2>;
Not stated<z>;
Mean score<d1><t=avg><r>',
xt='Q2 Agreement with statement : Rating 8',
!
di $iq2h=$xq2h(2,1,0,-1,-2,u),
finish data,
start tables,
!
%avg='Rating 1',
t#1a(f=ndis/naid)=$q2a * $age,
vt='Q2 Mean score summary',
%avg='Rating 2',
+t#1b(f=ndis/naid)=$q2b * $age,
%avg='Rating 3',
+t#1c(f=ndis/naid)=$q2c * $age,
%avg='Rating 4',
+t#1d(f=ndis/naid)=$q2d * $age,
%avg='Rating 5',
+t#1e(f=ndis/naid)=$q2e * $age,
%avg='Rating 6',
+t#1f(f=ndis/naid)=$q2f * $age,
%avg='Rating 7',
+t#1g(f=ndis/naid)=$q2g * $age,
%avg='Rating 8',
+t#1h(f=ndis/naid)=$q2h * $age,
%avg='Mean score',
!
ds $q2dum(8),
x='
<g1b>Rating 1;
Rating 2;
Rating 3;
Rating 4;
Rating 5;
Rating 6;
Rating 7;
Rating 8
',
t#2(f=dpt1/nrtv/nitb/nptr)=$q2dum * $age,
vt='Q2 Mean score summary using manip',
t#2x(f=nitb/nptr/nptb)=$q2dum * $age,
select wq $iq2a,t#2=1 * $age,select wq 1,
if $iq2a/nu,t#2x=1 * $age,
select wq $iq2b,t#2=2 * $age,select wq 1,
if $iq2b/nu,t#2x=2 * $age,
select wq $iq2c,t#2=3 * $age,select wq 1,
if $iq2c/nu,t#2x=3 * $age,
select wq $iq2d,t#2=4 * $age,select wq 1,
if $iq2d/nu,t#2x=4 * $age,
select wq $iq2e,t#2=5 * $age,select wq 1,
if $iq2e/nu,t#2x=5 * $age,
select wq $iq2f,t#2=6 * $age,select wq 1,
if $iq2f/nu,t#2x=6 * $age,
select wq $iq2g,t#2=7 * $age,select wq 1,
if $iq2g/nu,t#2x=7 * $age,
select wq $iq2h,t#2=8 * $age,select wq 1,
if $iq2h/nu,t#2x=8 * $age,
f=rns2,
t#3=* $age,
%avg='Rating 1',
+t#3a(f=ndis)=$q2a * $age,
vt='Q2 Mean score summary',
%avg='Rating 2',
+t#3b(f=ndis)=$q2b * $age,
%avg='Rating 3',
+t#3c(f=ndis)=$q2c * $age,
%avg='Rating 4',
+t#3d(f=ndis)=$q2d * $age,
%avg='Rating 5',
+t#3e(f=ndis)=$q2e * $age,
%avg='Rating 6',
+t#3f(f=ndis)=$q2f * $age,
%avg='Rating 7',
+t#3g(f=ndis)=$q2g * $age,
%avg='Rating 8',
+t#3h(f=ndis)=$q2h * $age,
%avg='Mean score',
f=rns0,
finish tables,
>>  Last few chars parsed were {)=$q2h*$age,%avg='Mean score',f=rns0,finishtables,}
>>W 543 Text needed for table
VT for #3
start manip,
mt#2=#2 / #2x,
finish manip,
